home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / check.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  5.6 KB  |  196 lines
  1. 100  REM            CHECK WRITING PROGRAM
  2. 101  KEY 1,"INCRD"
  3. 102  KEY 2,"DLCRD"
  4. 103  KEY 3,"HOME"
  5. 104  KEY 4,"CHECK"
  6. 105  KEY 5,"ENVEL"
  7. 107  KEY 6,"REGISTR": KEY 7,"": KEY 8,"": KEY 10,"RUN "
  8. 110  CLS:PRINT TAB(20);"CHECK WRITING PROGRAM"
  9. 120  PRINT "**********************************************************************"
  10. 130  LOCATE 6,10:  PRINT "F1: -INCRD                  INPUT     CREDITORS"
  11. 140  LOCATE 8,10:  PRINT "F2: -DLCRD                  DELETE    CREDITORS"
  12. 150  LOCATE 10,10: PRINT "F3: -HOME                   CHANGE HOME ADDRESS"
  13. 160  LOCATE 12,10: PRINT "F4: -CHECK                  WRITE        CHECKS"
  14. 170  LOCATE 14,10: PRINT "F5: -ENVEL                  WRITE     ENVELOPES"
  15. 175  LOCATE 16,10: PRINT "F6: -REGISTR                WRITE      REGISTER"
  16. 180  LOCATE 21,25: INPUT "ENTER FUNCTION:  ";F$
  17. 190  IF F$="INCRD" THEN 1000
  18. 200  IF F$="DLCRD" THEN 2000
  19. 210  IF F$="HOME"  THEN 3000
  20. 220  IF F$="CHECK" THEN 7000
  21. 230  IF F$="ENVEL" THEN 5000
  22. 235  IF F$="REGISTR" THEN 6000
  23. 240  GOTO 110
  24. 250  END
  25. 800  NEXT
  26. 1000  REM -----------------INPUT CREDITORS
  27. 1005  ICOUNT=0
  28. 1010  OPEN "CREDIT.DAT"  AS #1
  29. 1020  CLS:PRINT "INPUT CREDITOR INFORMATION"
  30. 1030  PRINT
  31. 1040  LINE INPUT "NAME                ";CJ1$
  32. 1050  LINE INPUT "ADDRESS LINE 1      ";CJ2$
  33. 1060  LINE INPUT "ADDRESS LINE 2      ";CJ3$
  34. 1070  LINE INPUT "CITY                ";CJ4$
  35. 1080  LINE INPUT "STATE               ";CJ5$
  36. 1090  LINE INPUT "ZIP CODE            ";CJ6$
  37. 1100  INPUT "AMOUNT USUALY PAY  $";CJ7$
  38. 1200  FIELD #1, 20 AS C1$,20 AS C2$,20 AS C3$,20 AS C4$,20 AS C5$,5 AS C6$,8 AS C7$
  39. 1201  LSET C1$ =CJ1$: LSET C2$ =CJ2$: LSET C3$ =CJ3$:LSET C4$ = CJ4$
  40. 1202  LSET C5$ =CJ5$: LSET C6$ =CJ6$: LSET C7$ =CJ7$
  41. 1210  ICOUNT=LOF(1)/128 +1 : IF ICOUNT<=0 THEN ICOUNT=1
  42. 1220  PUT #1,ICOUNT
  43. 1230  LOCATE 20,10:INPUT "DO YOU WISH TO CONTINUE (Y/N) ";F$
  44. 1235  CLOSE #1
  45. 1240  IF F$="Y" THEN 1010
  46. 1260  GOTO 100
  47. 2000  REM------------------------DELETE CREDITORS
  48. 2010  OPEN "CREDIT.DAT" AS #1
  49. 2020  CLS:INPUT "ENTER CREDITORS NAME TO DELETE ";CX$
  50. 2025  FOR I=1 TO LOF(1)/128
  51. 2030  FIELD #1,20 AS C1$,20 AS C2$,20 AS C3$,20 AS C4$,20 AS C5$,5 AS C6$,8 AS C7$
  52. 2050  GET #1,I
  53. 2060  PRINT I;C1$;CX$
  54. 2070  IF CX$=LEFT$(C1$,LEN(CX$)) THEN 2110
  55. 2080  NEXT I
  56. 2090  INPUT "CAN'T LOCATE CREDITOR-  DO YOU WISH TO CONTINUE (Y/N) ";F$
  57. 2100  IF F$="Y" THEN 2020 ELSE 2140
  58. 2110  REM------------------------------- DELETE DATA
  59. 2120  CJ1$="":CJ2$="":CJ3$="":CJ4$="":CJ5$="":CJ6$="":CJ7$=""
  60. 2125  LSET C1$=CJ1$: LSET C2$=CJ2$: LSET C3$=CJ3$: LSET C4$=CJ4$
  61. 2126  LSET C5$=CJ5$: LSET C6$=CJ6$: LSET C7$=CJ7$
  62. 2130  PUT #1,I
  63. 2140  CLOSE #1
  64. 2150  GOTO 100
  65. 3000  REM------------------CHANGE HOME ADDRESS
  66. 3010  OPEN "HOMEADRS.DAT" AS #2
  67. 3020  FIELD #2,20 AS J1$,20 AS J2$,20 AS J3$,20 AS J4$,20 AS J5$,20 AS J6$
  68. 3030  CLS: LINE INPUT "ENTER NAME ";CJ1$
  69. 3040  LINE INPUT "ADDRESS LINE 1  ";CJ2$
  70. 3050  LINE INPUT "ADDRESS LINE 2  ";CJ3$
  71. 3060  LINE INPUT "ADDRESS LINE 3  ";CJ4$
  72. 3070  LINE INPUT "ADDRESS LINE 4  ";CJ5$
  73. 3080  LINE INPUT "ADDRESS LINE 5  ";CJ6$
  74. 3100  LSET J1$=CJ1$:LSET J2$=CJ2$: LSET J4$=CJ4$:LSET J5$=CJ5$: LSET J6$=CJ6$
  75. 3110  PUT #2,1
  76. 3120  CLOSE #2
  77. 3130  GOTO 100
  78. 5000  REM------------------PRINT ENVELOPES
  79. 5010  OPEN "CREDIT.DAT" AS #1
  80. 5011  OPEN "HOMEADRS.DAT" AS #2
  81. 5012  FIELD #2,20 AS J1$,20 AS J2$,20 AS J3$,20 AS J4$,20 AS J5$,20 AS J6$
  82. 5013  GET #2,1
  83. 5020  FIELD #1,20 AS C1$,20 AS C2$,20 AS C3$,20 AS C4$,20 AS C5$,5 AS C6$,8 AS C7$
  84. 5030  CLS:PRINT "POSITION ENVELOPES WITH 1/4 IN. CLEARANCE AT TOP TO FIRST LINE"
  85. 5031  INPUT "HIT ENTER WHEN READY";F$
  86. 5040  FOR I=1 TO LOF(1)/128
  87. 5050  GET #1,I
  88. 5060  IF LEFT$(C1$,5)="     " THEN 5200
  89. 5061  PRINT I;C1$;C7$
  90. 5065  IF LEFT$( C7$,2)="NO" THEN 5200
  91. 5070  LPRINT TAB(5) J1$
  92. 5080  LPRINT TAB(5) J2$
  93. 5090  LPRINT TAB(5) J3$
  94. 5100  LPRINT TAB(5) J4$
  95. 5110  LPRINT TAB(5) J5$
  96. 5120  LPRINT TAB(5) J6$
  97. 5130  LPRINT :LPRINT :LPRINT
  98. 5140  LPRINT TAB(30) C1$
  99. 5150  LPRINT TAB(30) C2$
  100. 5160  LPRINT TAB(30) C3$
  101. 5170  LPRINT TAB(30) C4$;" ,";C5$;"  ";C6$
  102. 5180  LPRINT :LPRINT :LPRINT :LPRINT :LPRINT :LPRINT :LPRINT :LPRINT :LPRINT
  103. 5200  NEXT I
  104. 5205  CLOSE #1 :CLOSE #2
  105. 5210  GOTO 100
  106. 6000  REM-----------------------PRINT CHECK REGISTER
  107. 6010  OPEN "CREDIT.DAT" AS #1
  108. 6012  FIELD #1,20 AS C1$,20 AS C2$,20 AS C3$,20 AS C4$,20 AS C5$,5 AS C6$,10 AS C7$
  109. 6013  INPUT "HIT ENTER WHEN PAPER READY ";F$
  110. 6014  A$=STRING$(79,"*")
  111. 6015  CLS: INPUT "ENTER DATE";B$ :LPRINT TAB(25) "CHECK REGISTER FOR ";B$
  112. 6016  LPRINT A$
  113. 6020  FOR I=1 TO LOF(1)/128
  114. 6030  GET #1,I
  115. 6040  IF LEFT$(C1$,10)="          " THEN 6070
  116. 6050  IF LEFT$(C7$,2)="NO" THEN 6070
  117. 6060  LPRINT I;"  ";C1$,C7$
  118. 6070  NEXT I
  119. 6080  CLOSE #1
  120. 6090  GOTO 100
  121. 7000  REM---------------------PRINT CHECKS
  122. 7010  OPEN "CREDIT.DAT" AS #1
  123. 7020  FIELD #1,20 AS C1$,20 AS C2$,20 AS C3$,20 AS C4$,20 AS C5$,5 AS C6$,8 AS C7$
  124. 7030  OPEN "HOMEADRS.DAT"  AS #2
  125. 7040  FIELD #2,20 AS J1$,20 AS J2$,20 AS J3$,20 AS J4$,20 AS J5$,20 AS J6$
  126. 7050  GET #2,1
  127. 7060  REM----------------------
  128. 7065  CLS:INPUT "ENTER DATE ";DT$
  129. 7070  CLS:LOCATE 10,20:PRINT "INSERT CHECKS WITH PRINT HEAD 1/4 INCH DOWN CHECK"
  130. 7080  LOCATE 12,20:INPUT "HIT ENTER TO CONTINUE";ICK$
  131. 7081  FOR I=0 TO 9:READ ONES$(I):NEXT
  132. 7082  DATA "NO","ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"
  133. 7085  REM-------------------------------------------------------------------
  134. 7090  FOR J=1 TO LOF(1)/128
  135. 7100  GET #1,J
  136. 7110  CLS:PRINT C1$:PRINT C2$:PRINT C3$:PRINT C4$;",";C5$;"  ";C6$
  137. 7120  LOCATE 10,10:PRINT C7$
  138. 7130  LOCATE 15,1:INPUT "DO YOU WISH TO PAY THIS CREDITOR (Y/N) ";ICK$
  139. 7140  IF ICK$="N" THEN 7800
  140. 7145  IF ICK$="n" THEN 7800
  141. 7150  INPUT "DO YOU WANT TO PAY THIS AMOUNT ";ICK$
  142. 7160  IF ICK$="Y" THEN 7200
  143. 7165  IF ICK$="y" THEN 7200
  144. 7170  INPUT "ENTER NEW AMOUNT ($0000.00) =";CJ7$
  145. 7180  LSET C7$ =CJ7$
  146. 7190  PUT #1,J
  147. 7200  REM----------------------
  148. 7240  LPRINT J1$:LPRINT J2$:LPRINT J3$:LPRINT J4$;TAB(65);DT$:LPRINT J5$:LPRINT J6$:LPRINT TAB(10);C1$; TAB(70);C7$
  149. 7350  N=LEN(C7$)
  150. 7360  FOR I=1 TO N
  151. 7370  Y$=LEFT$(C7$,I)
  152. 7380  IF RIGHT$(Y$,1)="." THEN 7400
  153. 7390  NEXT I
  154. 7400  REM---------------------
  155. 7402  Z$=""
  156. 7405  ICOUNT2=I+2
  157. 7410  IF LEFT$(C7$,1)="$" THEN IFLAG=-1
  158. 7420  IF IFLAG=-1 THEN ICOUNT = I-1 ELSE ICOUNT=I
  159. 7424  Y$=RIGHT$(Y$,ICOUNT)
  160. 7440  IF ICOUNT <>5 THEN 7500
  161. 7445  Y$=RIGHT$(Y$,ICOUNT)
  162. 7450  A$=LEFT$(Y$,1)
  163. 7460  A$="0"+A$ :I=VAL(A$)
  164. 7470  Z$=ONES$(I)+"THOUSAND + "
  165. 7480  ICOUNT=ICOUNT-1
  166. 7490  REM----
  167. 7500  IF ICOUNT <>4 THEN 7600
  168. 7510  A$=RIGHT$(Y$,ICOUNT)
  169. 7520  A$=LEFT$(A$,1)
  170. 7530  A$="0"+A$  :I=VAL(A$)
  171. 7540  Z$=Z$+ONES$(I)+" HUNDREDS + "
  172. 7550  ICOUNT=ICOUNT-1
  173. 7600  REM----
  174. 7610  IF ICOUNT <>3 THEN 7700
  175. 7620  A$=RIGHT$(Y$,ICOUNT)
  176. 7630  A$=LEFT$(A$,1)
  177. 7640  A$="0"+A$  :I=VAL(A$)
  178. 7650  Z$=Z$+ONES$(I)+" TENS +"
  179. 7660  ICOUNT=ICOUNT-1
  180. 7700  REM----
  181. 7710  IF ICOUNT<> 2 THEN 8000
  182. 7720  A$=RIGHT$(Y$,ICOUNT)
  183. 7730  A$=LEFT$(A$,1)
  184. 7740  A$="0"+A$  :I=VAL(A$) :Z2$=LEFT$(C7$,ICOUNT2)
  185. 7750  Z$=Z$+ONES$(I)+" +" +RIGHT$(Z2$,2) +"/100 DOLLARS"
  186. 7765  LPRINT :LPRINT :LPRINT :LPRINT :LPRINT
  187. 7775  LPRINT Z$
  188. 7785  LPRINT :LPRINT :LPRINT :LPRINT :LPRINT
  189. 7786  GOTO 8000
  190. 7800  CJ7$="NO": LSET C7$=CJ7$ :PUT #1,J
  191. 8000  NEXT J
  192. 8005  CLOSE #1
  193. 8006  CLOSE #2
  194. 8010  GOTO 100
  195. 8020  END
  196.